home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / basic / qbware.exe / TICKS.FN < prev    next >
Text File  |  1988-05-01  |  489b  |  25 lines
  1.  
  2. 'Copyright (c) 1987,1988 Marcel Madonna
  3.  
  4.  
  5. '*****************************************************************************
  6.  
  7.  
  8. DEF FnTicks (A%, b%, C%)
  9.  
  10. '
  11. ' This function takes the output from BSGETIME and computes the total number
  12. ' of clock ticks that have passed since the computer started.
  13. STATIC ClTicks
  14.  
  15.     ClTicks = (A% * 65536) + (C% * 1573040)
  16.     IF b% > 0 THEN
  17.         ClTicks = ClTicks + b%
  18.     ELSE
  19.         ClTicks = ClTicks + b% + 65536
  20.     END IF
  21.  
  22.     FnTicks = ClTicks
  23. END DEF
  24.  
  25.